home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 112 / Tiger_Disk_112_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 133 -ende- (.txt) next >
Commodore BASIC  |  2023-02-26  |  798b  |  16 lines
  1. 1 poke53280,.:poke53281,.:printchr$(147)
  2. 3 fora=4to8:forb=ato10:forc=bto(a+b):
  3. 5 poke646,(c+a):print"[169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][163][163][163][163][163]";
  4. 7 poke646,(b+c):print"[169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][163][163][163][163][163][163][163][163][163][163][163][163]";
  5. 9 poke646,(a+b):print"                                                    [145]";
  6. 11 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145] ";:next:print"[145]";:next:gosub13::
  7. 12 print"[145]                                        ";:next:sys62913:goto30
  8. 13 print"[158][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  9. 15 print"[159][176][178][178][178][174] [176][174] [176][174] [176][178][178][174] [176][178][178][178][174][146] [207][205][206][205][206][205][206][205][206][205][206][205][206][205][206][208] ";
  10. 17 print"[171][171][192][192][189] [171][171][174][221][179] [171][171][192][219][174][171][171][192][192][189][146] [156][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206] ";
  11. 19 print"[171][219][192]   [171][221][219][221][179] [171][221] [221][179][171][219][192]  [146] [182][214][214][214][214][214][214][214][214][214][214][214][214][214][214][181] ";
  12. 21 print"[171][171][192][192][174] [171][221][173][179][179] [171][171][192][219][189][171][171][192][192][174][146] [206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205] ";
  13. 23 print"[173][177][177][177][189] [173][189] [173][189] [173][177][177][189] [173][177][177][177][189][146] [129][204][206][205][206][205][206][205][206][205][206][205][206][205][206][205][186] ";
  14. 25 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":return
  15. 30 poke56325,0:print"[147]nonsens von lukian";:poke56325,55:sys58253
  16.